home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib01.dsk / HIRES MULTICOLOR KALEIDOSCOPE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  440b  |  17 lines
  1. 10  HGR 
  2. 20  HCOLOR=  INT( RND(1) *8)
  3. 30 X =  INT( RND(1) *8)
  4. 40  FOR A = 0 TO 139  STEP X +2
  5. 50  HPLOT A,0 TO 139 -A,79
  6. 60  HPLOT 279 -A,0 TO 140 +A,79
  7. 70  HPLOT A,159 TO 139 -A,80
  8. 80  HPLOT 279 -A,159 TO 140 +A,80
  9. 90  NEXT A
  10. 100  FOR B = 0 TO 79  STEP X +2
  11. 110  HPLOT 0,79 -B TO 139,B
  12. 120  HPLOT 140,B TO 279,79 -B
  13. 130  HPLOT 0,80 +B TO 139,159 -B
  14. 140  HPLOT 279,80 +B TO 140,159 -B
  15. 150  NEXT B
  16. 160  FOR Z = 1 TO 1500: NEXT Z
  17. 170  GOTO 20